Cream of the Crop 26/Cream of the Crop 26.iso/doom/addons.zip/TCW094.ZIP/TCW.REF

Text File | 1997-08-08 | 16KB | 576 lines

; +--------------------------------------------------------------+
;  The Crazy Wizard IGM Version 0.94 O.R. for LORD2 by Duane Bong
; +--------------------------------------------------------------+
@#TCW
@datanewday TCW.idf
@clear screen
@pauseoff
@show
?7hHC░░C▄ ▌▌s
u▐HC░░░▒C▄▀▌▌▌▌▌▌HC░▒s
u░░░░C▌▌ ▐ ▐ ▌HC░░▒░▒░▒C▌s
uC▐HC░▒░░▒▓▓▒▒C▐C▌Hs
uC░░░░░▓██▓▒▒C▌H  = Legens
ud Of The Red Dragon =C░▒░▒▓█▀ █░░░s
uC▐  ▐HC░▒░░▓█   ▐▓░▒▒C▄s
uC▄1HC░░▒▓█▀C█▓░▒C▐    ░ s
u ▌1HC▒░█▀C▐▓░▒C▌▌  ░░ ▐▐
1HC░░▓▌C█▒░C▐ ▐ ░░  ▌▐1Hs
uC▒▓█C▐▓░C▐  ▌░░  ▌▐1HCs
u░▓█▀C▐▓░C▐  ▐░  ▐ ▐1HCs
u░C▒█    ░Cs
u█▓C▌  ▐░  ▐ ▌1HCs
u░  ░C░▒▒    ░Cs
u▄C▐    ▌  ▌ ▌1HCs
u░C░▒C░C▀▀▄s
u  ▐    ▌ ▐  ▌1HC░  ░▒▒ ░s
uC░    ▀▄▌    ▌▄▀  ▌1HCs
u░ ▒▒▒▒▒ ░C░C░C▌▌ s
u ▐1HC░   ▒▒▓▓▓▒░ ░░Cs
u░C░C░   ▐   ▐1HCs
u░  ▒▓ ▄  ▄ ▓░  ░ s
u   ▄▄▀█C░C░░C░    ▐   ▌
1HC░ ▒▓ █Cs
u▌▐█▌ ░░    s
u▄▀    ▓C░ ░░C░C▌1Hs
uC░ ░▒ ▐C▌ s
u▐▐  ▓░░    s
u▀▌C░C░C▌1HCs
u▒▓  █▐ s
u█▐ ▐ s
u▓░░    ▐C░C▄▀1HA
C░ ▒▓  ▐██▄░░░A
C▌ ▓▓   ▐▌C░C▌
C▒▓   ██C▌░A
C▀ ▄  C▄▌C░C▐
C▒▓  ▐C▐░░A
C▄▀ ▐ CA
C▌C░C▐
C░ ░▒▓  C█A
C░░▀▀ ▐ ▐C░A
CC▐
C░ ░▒▓  C▀▄▄A
C▄ ▌C░C░C▐
C▒  ▌ ▒   ▌▀▀C░A
CC░C▌
C░▓ ▌░░▒ ▐C░A
CC▌C▌
C░▓ ▌ ░░▒▐   A
C█ ░C░C▐▐C▌
C░ ░▒ ▐  ░░▌C░A
CC░C▐▐C▌
C▒▓▐   ▐C░C▐ ▀▄   ▄▀
C▒▒▐   ▌C░  ▄▀▌C▌ ▐▄A
C ▐
C▒▐  ▐C░ ▐ ▐   ░C▌  A
C ▌▌
C░ ▌ ▌   ░   ▄▌ ▌   ░C▌A
C   ▐
C░░▌▐    ▄▄▄▀   ▌C▒   ▌
C░ ░ ▌▌  ▄▀C▐C▒   ▌
C░ ░ ▌▌ ▄▌░C░A
C▐C░   ▌
C░ ░▐▄▀ ░░   ░░ A
C▌C▒C▌
C░  ▌    ▒C▒C▌
C▌    ▒C▒C░    ▌
C▌   ▒░C░C░    ▐
C▐    ░C░C▐
C▐    ░C░C░C▐
   < The Crazy Wizard >C▐    ▒A
CC▒C▒C▐C< LORD 2 >
C▐    ▒C▐
D
@pauseon
@key
@label start
@clear screen
@show
`0T`2he `0C`2razy `0W`2izard `0v0.94 `0O`2fficial `0R`2elease
`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

`2You see an old hooded man in long flowing robes. His robes
`2appear to be `%white `2at first, but you soon notice that it relects
`2the many colors of the spectrum. This must be the crazy wizard of
`2many colors that the legends you heard as a child speak of.
`2His wisened face expresses unimaginable sorrow. As you approach him,
`2his eyes light up...

@do `v01 is 1
@choice
Talk to The Crazy Wizard
Ask him for a gift
Attack him with your s&weapon
Run off and leave him alone
@if response is 1 then do
@begin
@show
`\`\`5"Hello old wizard, any clues for me? I sure could use some help."`2
"The path of the dead lies ahead, do you wish to go?" replies the wizard.

@do `v01 is 1
@choice
Yes, tell me more about this path of the dead.
What are you talking about old man? You sure are crazy!
Nevermind about that, tell me more about yourself.
@if response is 1 then do
@begin
@clear screen
@show
`\`\`5"Yes, tell me more about this path of the dead" `2you say.

@if `p07 less -1 then do begin
@begin
@show
`2The wizard looks into your eyes. You feel his gaze exploring the depths
of your soul and try to turn away, but you find that you cannot move!
Finally after what felt like eternity, he says "The words slapstick and
oneeye are your destiny! Your path is with The Dragon Tooth Clan!"

`5"Erm... okay. I think I understand. Thanks for the clue" `2 you stammer.
You try to move and to your relief find that the wizard has released you
from the strong grasp of his gaze.
@end

@if `p07 is -1 then do begin
@begin
@show
`2"Ah! You have found your heart I see. It lies on the path of evil, but is
yet soft and should you careless be, to good you will turn." warns the
wizard sternly.

`5"Erm... okay. I think I understand. Thanks for the clue" `2 you stammer.
What a jerk you think to yourself. How does he know what path I'm on?!
@end


@if `p07 is 0 then do begin
@begin
@show
`2"To use the caves in snowy pass, you will need the mountain amulet.
But your heart knows not where it lies yet and I cannot help you further."

`5"Erm... okay. I think I understand. Thanks for the clue" `2 you stammer.
@end

@if `p07 is 1 then do begin
@begin
@show
`2"Ah! You have found your heart I see. It lies on the path of good, but is
yet hard and should you careless be, to evil you will turn." warns the
wizard sternly.

`5"Erm... okay. I think I understand. Thanks for the clue" `2 you stammer.
What a jerk you think to yourself. How does he know what path I'm on?!
@end

@if `p07 more 1 then do begin
@begin
@show
`2"Seek the Koshi! They have great weapons and armours. They will lead
you upon the right path. Much help will they be against `4The Red Dragon!
`2But first be warned, much help the Koshi can be, but much too do they
demand back from you!" says the wizard.

`5"Erm... okay. I think I understand. Thanks for the clue" `2you stammer.
@end
@end

@if response is 2 then do
@begin
@clear screen
@show
`\`\`5"What are you talking about old man? You sure are crazy!" `2you laugh.

`2Say what you will, but remember my words, your doom is near!
@end
@if response is 3 then do
@begin
@clear screen
@show
`\`\`5"Nevermind about that, tell me more about yourself" `2you say.

`2"There are not enough characters to talk to, so I was written to fix this
problem!" replies the wizard.

@do `v01 is 1
@choice
I mean, why do they call you the crazy wizard?
What are you doing in the middle of this forest anyway?
How do you earn your living here in the forest?
@if response is 2 then do
@begin
@show
`\`\`2"I am here to aid you and show you the way" says the wizard.

`5"Yeah rite!" `2you think. If he really was that wise, he would have killed
the `4Red Dragon `2himself long ago. The wizard frowns as though having read
your mind and you quickly look away.
@end

@if response is 3 then do
@begin
@show
`\`\`2"Well erm... shh.. don't tell anybody, but I know how to make healing
potions and since the nearest town is Sosen Village which is quite far away,
those passing here who are in desperate need of healing can buy them from
me. Hey! A wizard needs to earn some pocket money too!"

@do `v01 is 1
@choice
Buy some healing potions from the wizard.
Nah. He'll probably try to rip me off.
Come on! What else can you do besides that?
@if response is 1 then do
@label trade
@clear screen
@begin
@show
`2=-= `9The Crazy Wizard's Potion Shop `2=-=
@do write
`\`\
  @BUYMANAGER
  05
  40
  55
@do goto start
@end

@if response is 2 then do
@begin
@clear screen
@show
`\`\`5"Wow! You know how to make potions! That's great" `2you sarcastically
tell the wizard, trying not to laugh out loud.`\
@end

@if response is 3 then do
@begin
@show
`\`\`2"Actually, I can cast a spell and warp you to one of the towns or even
right up to the doorstep of your house... it's against the rules, but for a
small fee....." whispers the wizard with a grin on his face. Strangely he
now looks like your local politician rather than an old wizard.

@do `v01 is 1
@choice
Where exactly can I go and how much does it cost?
No thanks, I'd rather walk and enjoy the scenery.
@if response is 1 then do
@begin
@clear screen
@show
`2=-= `9Wizard's Spell Destination Listing `2=-=
`\`2The wizard cautiously looks around to make sure nobody is watching before
handing you a old parchment. It is a list of possible destinations. He seems
to be charging a flat rate of 1 gem for all the destinations.
`\
@do `v01 is 1
@choice
Cast spell to teleport to Greentree         -  1 gem
Cast spell to teleport to PortTown          -  1 gem
Cast spell to teleport to Flag City         -  1 gem
Cast spell to teleport to Sosen Village     -  1 gem
Cast spell to teleport back home            -  1 gem
Sorry, I just changed my mind.
@if response is 1 then do
@begin
@if `p19 more 0 then do begin
@begin
@do `p19 - 1
@show
`\`\`2You grudgingly hand over 1 gem to the wizard. He raises his staff and
suddenly the world starts to spin in front of your eyes.
@key
; Warp to GreenTree
 @do x is 10
 @do y is 15
 @do map is 1356
 @loadmap &map
 @drawmap
 @update
 @closescript
@end
@if `p19 is 0 then do begin
@begin
@show
`\`\`2"Sorry, you don't have enough to pay me" says the wizard sadly.
@key
@do goto start
@end
@end
@if response is 2 then do
@begin
@if `p19 more 0 then do begin
@begin
@do `p19 - 1
@show
`\`\`2You grudgingly hand over 1 gem to the wizard. He raises his staff and
suddenly the world starts to spin in front of your eyes.
@key
; Warp to PortTown
 @do x is 38
 @do y is 16
 @do map is 956
 @loadmap &map
 @drawmap
 @update
 @closescript
@end
@if `p19 is 0 then do begin
@begin
@show
`\`\`2"Sorry, you don't have enough to pay me" says the wizard sadly.
@key
@do goto start
@end
@end
@if response is 3 then do
@begin
@if `p19 more 0 then do begin
@begin
@do `p19 - 1
@show
`\`\`2You grudgingly hand over 1 gem to the wizard. He raises his staff and
suddenly the world starts to spin in front of your eyes.
@key
; Warp to Flag City
 @do x is 71
 @do y is 19
 @do map is 1092
 @loadmap &map
 @drawmap
 @update
 @closescript
@end
@if `p19 is 0 then do begin
@begin
@show
`\`\`2"Sorry, you don't have enough to pay me" says the wizard sadly.
@key
@do goto start
@end
@end
@if response is 4 then do
@begin
@if `p19 more 0 then do begin
@begin
@do `p19 - 1
@show
`\`\`2You grudgingly hand over 1 gem to the wizard. He raises his staff and
suddenly the world starts to spin in front of your eyes.
@key
; Warp to Sosen Village
 @do x is 32
 @do y is 7
 @do map is 456
 @loadmap &map
 @drawmap
 @update
 @closescript
@end
@if `p19 is 0 then do begin
@begin
@show
`\`\`2"Sorry, you don't have enough to pay me" says the wizard sadly.
@key
@do goto start
@end
@end
@if response is 5 then do
@begin
@if `p19 more 0 then do begin
@begin
@do `p19 - 1
@show
`\`\`2You grudgingly hand over 1 gem to the wizard. He raises his staff and
suddenly the world starts to spin in front of your eyes.
@key
; Warp to Home
 @do x is 25
 @do y is 16
 @do map is 1360
 @loadmap &map
 @drawmap
 @update
 @closescript
@do goto done
@end
@if `p19 is 0 then do begin
@begin
@show
`\`\`2"Sorry, you don't have enough to pay me" says the wizard sadly.
@key
@do goto start
@end
@end
@if response is 6 then do
@begin
@show
`\`\`2The Wizard frowns as though deprived of some great chance to swindle you
of your money. You thank your lucky stars that you didn't give him such an
opportunity. One gem is a lot to charge for one stupid spell!
@key
@do goto start
@end

@end

@if response is 2 then do
@begin
@show
`\`\`2"Come back to me if you change your mind later." says the wizard. He
looks rather desperate for the money.
@end

@end

@end

@if response is 1 then do
@begin
@show
`\`\`2"Sigh... to remember the days of the fifth age and the glory of the five
free races. The spear of Gilgalad and the sword of Elendil together were
undefeatable." replies the old wizard. He mind seems lost in another world.

@do `v01 is 1
@choice
I want to know more about this fifth age you're talking about.
Tell me more about this Gilgalad and Elendil. Who are they?
Yeah, rite! But could you do something useful for a change?
@if response is 1 then do
@begin
@show
`\`\`2The wizard sighs and seems unwilling to say more. You wave your hands
infront of his eyes and he doesn't even blink. You are now convinced that
he really is crazy!
@end
@if response is 2 then do
@begin
@show
`\`\`2"Gilgalad was an elven prince and Elendil was the king of a powerful
kingdom in the west lands" sighs the wizard and suddenly becomes quiet.
Elves? West lands? You are now convinced that he really is crazy!
@end
@if response is 3 then do
@begin
@show
`\`\`2The powers of the Istari are great! Do not underestimate us!
@end
@key
@do goto start

@end
@key
@do goto start

@end
@key
@do goto start
@end

@if response is 2 then do
@begin
@dataload TCW.idf &playernum `p98
@if `p98 is 1 then do
@begin
@show
`\`\`2Real riches are not stored on earth but in heaven! Have you not already
enough gifts here? Trouble me no more about gifts!
@key
@do goto start
@end

@datasave TCW.idf &playernum 1
@do `p98 random 4

@if `p98 is 0 then do
@begin
@do `p98 random 50
@show
`\`\`2The Crazy Wizard gives you `0`p98 `2gold!
@do money + `p98
@key
@do goto start
@end

@if `p98 is 1 then do
@begin
@show
`\`\`2Sorry `n but I don't have a gift for you!
@key
@do goto start
@end

@if `p98 is 2 then do
@begin
@show
`\`\`2The Crazy Wizard hands you a jar of green potion!
@do `i05 + 1
@key
@do goto start
@end

@if `p98 is 3 then do
@begin
@show
`\`\`2The Crazy Wizard hands you a magic travel potion!
@do `i50 + 1
@key
@do goto start
@end

@if `p98 is 4 then do
@begin
@show
`\`\`2I have not found you worthy of a gift today!
@key
@do goto start
@end
@end

@if response is 3 then do
@begin
@do `p02 is 1
@show
`\`\`2"You are no match for me young fool!" shouts the wizard. He raises his
staff and the skys darken. A `9blue `2bolt of lightning suddenly strikes you
from the staff. Your `%s&weapon `2is useless against such power! You flee
from his terrible wrath running as fast as you can. `4HITPOINTS DROP TO 1!`2
@key
@do goto done
@end

@if response is 4 then do
@begin
@if `p07 more 0 then do begin
@begin
@show
`\`\`2"Remeber to seek the Koshi!" the wizard shouts as you leave.
@key
@do goto done
@end

@if `p07 is 0 then do begin
@begin
@show
`\`\`2"Seek and find your heart first!" the wizard shouts as you leave.
@key
@do goto done
@end

@if `p07 less 0 then do begin
@begin
@show
`\`\`2"Remember to seek The Dragon Tooth Clan!" the wizard shouts after you.
@key
@do goto done
@end

@label done
@drawmap
@do moveback
@update
@closescript